object DataModule_DbAndCore: TDataModule_DbAndCore
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 527
  Width = 722
  object FIBDBDeviceC: TpFIBDatabase
    Connected = True
    DBName = 'C:\Program Files (x86)\HK-Software\IBExpert\DB\NewDC.FDB'
    DBParams.Strings = (
      'user_name=DC'
      'password=dc'
      'lc_ctype=WIN1251')
    DefaultTransaction = pFIBTrRead
    DefaultUpdateTransaction = pFIBTrModify
    SQLDialect = 3
    Timeout = 0
    AliasName = 'NewDC'
    WaitForRestoreConnect = 0
    Left = 24
    Top = 16
  end
  object pFIBTrRead: TpFIBTransaction
    Active = True
    DefaultDatabase = FIBDBDeviceC
    Left = 120
    Top = 16
  end
  object pFIBTrModify: TpFIBTransaction
    DefaultDatabase = FIBDBDeviceC
    Timeout = 1500
    Left = 120
    Top = 72
  end
  object FIBSQLLogger1: TFIBSQLLogger
    LogFileName = 'DeviceCLog'
    ForceSaveLog = False
    Left = 24
    Top = 72
  end
  object pFIBDataSetConfigurations: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE C01_CONFIG'
      'SET '
      '    D02_ID = :D02_ID,'
      '    C01_NAME = :C01_NAME,'
      '    C01_AUTOSTART = :C01_AUTOSTART,'
      '    C01_STARTCON = :C01_STARTCON,'
      '    C01_HANDLE = :C01_HANDLE,'
      '    C01_WORKING = :C01_WORKING,'
      '    C01_USE_BARCODE = :C01_USE_BARCODE,'
      '    C01_COM_PORT = :C01_COM_PORT,'
      '    D01_ID_1 = :D01_ID_1,'
      '    D01_ID_2 = :D01_ID_2,'
      '    D01_ID_3 = :D01_ID_3,'
      '    D01_ID_4 = :D01_ID_4,'
      '    D01_ID_5 = :D01_ID_5'
      'WHERE'
      '    C01_ID = :OLD_C01_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    C01_CONFIG'
      'WHERE'
      '        C01_ID = :OLD_C01_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO C01_CONFIG('
      '    C01_ID,'
      '    D02_ID,'
      '    C01_NAME,'
      '    C01_AUTOSTART,'
      '    C01_STARTCON,'
      '    C01_HANDLE,'
      '    C01_WORKING,'
      '    C01_USE_BARCODE,'
      '    C01_COM_PORT,'
      '    D01_ID_1,'
      '    D01_ID_2,'
      '    D01_ID_3,'
      '    D01_ID_4,'
      '    D01_ID_5'
      ')'
      'VALUES('
      '    :C01_ID,'
      '    :D02_ID,'
      '    :C01_NAME,'
      '    :C01_AUTOSTART,'
      '    :C01_STARTCON,'
      '    :C01_HANDLE,'
      '    :C01_WORKING,'
      '    :C01_USE_BARCODE,'
      '    :C01_COM_PORT,'
      '    :D01_ID_1,'
      '    :D01_ID_2,'
      '    :D01_ID_3,'
      '    :D01_ID_4,'
      '    :D01_ID_5'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    C01.C01_ID,'
      '    C01.D02_ID,'
      '    C01.C01_NAME,'
      '    C01.C01_AUTOSTART,'
      '    C01.C01_STARTCON,'
      '    C01.C01_HANDLE,'
      '    (SELECT D02.D02_NAME FROM D02_DEVICE D02'
      '    '#9'WHERE D02.D02_ID = C01.D02_ID),'
      '    (SELECT D02.D02_DLL FROM D02_DEVICE D02'
      '    '#9'WHERE D02.D02_ID = C01.D02_ID),'
      '    (SELECT D02.D02_DEV_IP FROM D02_DEVICE D02'
      '    '#9'WHERE D02.D02_ID = C01.D02_ID),'
      '    (SELECT D02.D02_DEV_PORT FROM D02_DEVICE D02'
      '    '#9'WHERE D02.D02_ID = C01.D02_ID),'
      '    C01.C01_WORKING,'
      '    C01.C01_USE_BARCODE,'
      '    C01.C01_COM_PORT,'
      '    C01.D01_ID_1,'
      '    D1.D01_INT as BOUDRATE_INT,'
      '    C01.D01_ID_2,'
      '    D2.D01_INT as DATABITS_INT,'
      '    C01.D01_ID_3,'
      '    D3.D01_INT as FLOWCONTROL_INT,'
      '    C01.D01_ID_4,'
      '    D4.D01_INT as PARITY_INT,'
      '    C01.D01_ID_5,'
      '    D5.D01_INT as STOPBITS_INT'
      ''
      ''
      'FROM'
      '    C01_CONFIG C01'
      '    left join D01_DICTIONARY D1 on D1.D01_ID = C01.D01_ID_1'
      '    left join D01_DICTIONARY D2 on D2.D01_ID = C01.D01_ID_2'
      '    left join D01_DICTIONARY D3 on D3.D01_ID = C01.D01_ID_3'
      '    left join D01_DICTIONARY D4 on D4.D01_ID = C01.D01_ID_4'
      '    left join D01_DICTIONARY D5 on D5.D01_ID = C01.D01_ID_5'
      ''
      ''
      ' WHERE '
      '        C01.C01_ID = :OLD_C01_ID'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    C01.C01_ID,'
      '    C01.D02_ID,'
      '    C01.C01_NAME,'
      '    C01.C01_AUTOSTART,'
      '    C01.C01_STARTCON,'
      '    C01.C01_HANDLE,'
      '    (SELECT D02.D02_NAME FROM D02_DEVICE D02'
      '    '#9'WHERE D02.D02_ID = C01.D02_ID),'
      '    (SELECT D02.D02_DLL FROM D02_DEVICE D02'
      '    '#9'WHERE D02.D02_ID = C01.D02_ID),'
      '    (SELECT D02.D02_DEV_IP FROM D02_DEVICE D02'
      '    '#9'WHERE D02.D02_ID = C01.D02_ID),'
      '    (SELECT D02.D02_DEV_PORT FROM D02_DEVICE D02'
      '    '#9'WHERE D02.D02_ID = C01.D02_ID),'
      '    C01.C01_WORKING,'
      '    C01.C01_USE_BARCODE,'
      '    C01.C01_COM_PORT,'
      '    C01.D01_ID_1,'
      '    D1.D01_INT as BOUDRATE_INT,'
      '    C01.D01_ID_2,'
      '    D2.D01_INT as DATABITS_INT,'
      '    C01.D01_ID_3,'
      '    D3.D01_INT as FLOWCONTROL_INT,'
      '    C01.D01_ID_4,'
      '    D4.D01_INT as PARITY_INT,'
      '    C01.D01_ID_5,'
      '    D5.D01_INT as STOPBITS_INT'
      ''
      ''
      'FROM'
      '    C01_CONFIG C01'
      '    left join D01_DICTIONARY D1 on D1.D01_ID = C01.D01_ID_1'
      '    left join D01_DICTIONARY D2 on D2.D01_ID = C01.D01_ID_2'
      '    left join D01_DICTIONARY D3 on D3.D01_ID = C01.D01_ID_3'
      '    left join D01_DICTIONARY D4 on D4.D01_ID = C01.D01_ID_4'
      '    left join D01_DICTIONARY D5 on D5.D01_ID = C01.D01_ID_5'
      '')
    Transaction = pFIBTrRead
    Database = FIBDBDeviceC
    UpdateTransaction = pFIBTrModify
    AutoCommit = True
    Left = 64
    Top = 144
    object pFIBDataSetConfigurationsC01_ID: TFIBIntegerField
      FieldName = 'C01_ID'
    end
    object pFIBDataSetConfigurationsD02_ID: TFIBIntegerField
      FieldName = 'D02_ID'
    end
    object pFIBDataSetConfigurationsC01_NAME: TFIBStringField
      FieldName = 'C01_NAME'
      Size = 64
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSetConfigurationsC01_AUTOSTART: TFIBBooleanField
      DefaultExpression = 'False'
      FieldName = 'C01_AUTOSTART'
    end
    object pFIBDataSetConfigurationsC01_STARTCON: TFIBBooleanField
      DefaultExpression = 'False'
      FieldName = 'C01_STARTCON'
    end
    object pFIBDataSetConfigurationsC01_HANDLE: TFIBIntegerField
      FieldName = 'C01_HANDLE'
    end
    object pFIBDataSetConfigurationsD02_NAME: TFIBStringField
      FieldName = 'D02_NAME'
      Size = 100
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSetConfigurationsD02_DLL: TFIBStringField
      FieldName = 'D02_DLL'
      Size = 255
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSetConfigurationsD02_DEV_IP: TFIBStringField
      FieldName = 'D02_DEV_IP'
      Size = 16
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSetConfigurationsD02_DEV_PORT: TFIBSmallIntField
      FieldName = 'D02_DEV_PORT'
    end
    object pFIBDataSetConfigurationsC01_WORKING: TFIBBooleanField
      DefaultExpression = 'False'
      FieldName = 'C01_WORKING'
    end
    object pFIBDataSetConfigurationsC01_USE_BARCODE: TFIBBooleanField
      DefaultExpression = 'False'
      FieldName = 'C01_USE_BARCODE'
    end
    object pFIBDataSetConfigurationsD01_ID_1: TFIBIntegerField
      DefaultExpression = '314470'
      FieldName = 'D01_ID_1'
    end
    object pFIBDataSetConfigurationsBOUDRATE_INT: TFIBIntegerField
      FieldName = 'BOUDRATE_INT'
    end
    object pFIBDataSetConfigurationsD01_ID_2: TFIBIntegerField
      DefaultExpression = '314567'
      FieldName = 'D01_ID_2'
    end
    object pFIBDataSetConfigurationsDATABITS_INT: TFIBIntegerField
      FieldName = 'DATABITS_INT'
    end
    object pFIBDataSetConfigurationsD01_ID_3: TFIBIntegerField
      DefaultExpression = '314571'
      FieldName = 'D01_ID_3'
    end
    object pFIBDataSetConfigurationsFLOWCONTROL_INT: TFIBIntegerField
      FieldName = 'FLOWCONTROL_INT'
    end
    object pFIBDataSetConfigurationsD01_ID_4: TFIBIntegerField
      DefaultExpression = '314572'
      FieldName = 'D01_ID_4'
    end
    object pFIBDataSetConfigurationsPARITY_INT: TFIBIntegerField
      FieldName = 'PARITY_INT'
    end
    object pFIBDataSetConfigurationsD01_ID_5: TFIBIntegerField
      DefaultExpression = '314577'
      FieldName = 'D01_ID_5'
    end
    object pFIBDataSetConfigurationsSTOPBITS_INT: TFIBIntegerField
      FieldName = 'STOPBITS_INT'
    end
    object pFIBDataSetConfigurationsC01_COM_PORT: TFIBIntegerField
      FieldName = 'C01_COM_PORT'
    end
  end
  object JvDataSourceConfigurations: TJvDataSource
    DataSet = pFIBDataSetConfigurations
    Left = 64
    Top = 192
  end
  object pFibDBErrorHandler: TpFibErrorHandler
    Options = [oeException, oeForeignKey, oeLostConnect, oeCheck, oeUniqueViolation]
    Left = 208
    Top = 16
  end
  object pFIBQuery1: TpFIBQuery
    Left = 320
    Top = 16
  end
  object pFIBDataSetResults: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE R01_RESULTS'
      'SET '
      '    C01_ID = :C01_ID,'
      '    R01_NUMBER = :R01_NUMBER,'
      '    R01_PROB_NUMBER = :R01_PROB_NUMBER,'
      '    R01_STATE = :R01_STATE,'
      '    R01_QC_STATE = :R01_QC_STATE,'
      '    R01_RES = :R01_RES,'
      '    R01_RES_2 = :R01_RES_2,'
      '    R01_TEST_ID = :R01_TEST_ID,'
      '    R01_DATE = :R01_DATE,'
      '    R01_DATE_IZMER = :R01_DATE_IZMER,'
      '    R01_BARCODE = :R01_BARCODE'
      'WHERE'
      '    R01_ID = :OLD_R01_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    R01_RESULTS'
      'WHERE'
      '        R01_ID = :OLD_R01_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO R01_RESULTS('
      '    R01_ID,'
      '    C01_ID,'
      '    R01_NUMBER,'
      '    R01_PROB_NUMBER,'
      '    R01_STATE,'
      '    R01_QC_STATE,'
      '    R01_RES,'
      '    R01_RES_2,'
      '    R01_TEST_ID,'
      '    R01_DATE,'
      '    R01_DATE_IZMER,'
      '    R01_BARCODE'
      ')'
      'VALUES('
      '    :R01_ID,'
      '    :C01_ID,'
      '    :R01_NUMBER,'
      '    :R01_PROB_NUMBER,'
      '    :R01_STATE,'
      '    :R01_QC_STATE,'
      '    :R01_RES,'
      '    :R01_RES_2,'
      '    :R01_TEST_ID,'
      '    :R01_DATE,'
      '    :R01_DATE_IZMER,'
      '    :R01_BARCODE'
      ')')
    RefreshSQL.Strings = (
      'select'
      'r01.r01_id,'
      'r01.c01_id,'
      'r01.R01_NUMBER,'
      'r01.R01_PROB_NUMBER,'
      'r01.R01_STATE,'
      'r01.R01_QC_STATE,'
      'r01.R01_RES,'
      'r01.R01_RES_2,'
      'r01.R01_TEST_ID,'
      'r01.R01_DATE,'
      'r01.R01_Date_izmer,'
      ' r01.R01_BARCODE'
      'from r01_results r01'
      'where(  (r01.c01_id = :c01_id)'
      '     ) and (     R01.R01_ID = :OLD_R01_ID'
      '     )'
      '    '
      '')
    SelectSQL.Strings = (
      'select'
      'r01.r01_id,'
      'r01.c01_id,'
      'r01.R01_NUMBER,'
      'r01.R01_PROB_NUMBER,'
      'r01.R01_STATE,'
      'r01.R01_QC_STATE,'
      'r01.R01_RES,'
      'r01.R01_RES_2,'
      'r01.R01_TEST_ID,'
      'r01.R01_DATE,'
      'r01.R01_Date_izmer,'
      ' r01.R01_BARCODE'
      'from r01_results r01'
      'where (r01.c01_id = :c01_id)'
      '')
    Transaction = pFIBTrRead
    Database = FIBDBDeviceC
    UpdateTransaction = pFIBTrModify
    AutoCommit = True
    DataSource = JvDataSourceConfigurations
    Left = 208
    Top = 144
    object pFIBDataSetResultsR01_ID: TFIBIntegerField
      FieldName = 'R01_ID'
    end
    object pFIBDataSetResultsC01_ID: TFIBIntegerField
      FieldName = 'C01_ID'
    end
    object pFIBDataSetResultsR01_NUMBER: TFIBIntegerField
      FieldName = 'R01_NUMBER'
    end
    object pFIBDataSetResultsR01_PROB_NUMBER: TFIBIntegerField
      FieldName = 'R01_PROB_NUMBER'
    end
    object pFIBDataSetResultsR01_STATE: TFIBIntegerField
      FieldName = 'R01_STATE'
    end
    object pFIBDataSetResultsR01_QC_STATE: TFIBIntegerField
      FieldName = 'R01_QC_STATE'
    end
    object pFIBDataSetResultsR01_RES: TFIBStringField
      FieldName = 'R01_RES'
      Size = 30
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSetResultsR01_RES_2: TFIBStringField
      FieldName = 'R01_RES_2'
      Size = 30
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSetResultsR01_TEST_ID: TFIBStringField
      FieldName = 'R01_TEST_ID'
      Size = 100
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSetResultsR01_DATE: TFIBDateField
      FieldName = 'R01_DATE'
    end
    object pFIBDataSetResultsR01_DATE_IZMER: TFIBDateField
      FieldName = 'R01_DATE_IZMER'
    end
    object pFIBDataSetResultsR01_BARCODE: TFIBIntegerField
      FieldName = 'R01_BARCODE'
    end
  end
  object JvDataSourceResults: TJvDataSource
    DataSet = pFIBDataSetResults
    Left = 208
    Top = 192
  end
  object pFIBDataSetQuerys: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE Q01_QUERY'
      'SET '
      '    Q01_D02_ID = :Q01_D02_ID,'
      '    Q01_SENDED = :Q01_SENDED,'
      '    Q01_BARCODED = :Q01_BARCODED,'
      '    Q01_PATIENT_NAME = :Q01_PATIENT_NAME,'
      '    Q01_S = :Q01_S,'
      '    Q01_TEST = :Q01_TEST,'
      '    Q01_NUMBER = :Q01_NUMBER,'
      '    Q01_PROB_NUMBER = :Q01_PROB_NUMBER,'
      '    Q01_TRAY = :Q01_TRAY,'
      '    Q01_STATE = :Q01_STATE,'
      '    Q01_BARCODE = :Q01_BARCODE,'
      '    Q01_DATE = :Q01_DATE,'
      '    Q01_TIME = :Q01_TIME'
      'WHERE'
      '    Q01_ID = :OLD_Q01_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    Q01_QUERY'
      'WHERE'
      '        Q01_ID = :OLD_Q01_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO Q01_QUERY('
      '    Q01_ID,'
      '    Q01_D02_ID,'
      '    Q01_SENDED,'
      '    Q01_BARCODED,'
      '    Q01_PATIENT_NAME,'
      '    Q01_S,'
      '    Q01_TEST,'
      '    Q01_NUMBER,'
      '    Q01_PROB_NUMBER,'
      '    Q01_TRAY,'
      '    Q01_STATE,'
      '    Q01_BARCODE,'
      '    Q01_DATE,'
      '    Q01_TIME'
      ')'
      'VALUES('
      '    :Q01_ID,'
      '    :Q01_D02_ID,'
      '    :Q01_SENDED,'
      '    :Q01_BARCODED,'
      '    :Q01_PATIENT_NAME,'
      '    :Q01_S,'
      '    :Q01_TEST,'
      '    :Q01_NUMBER,'
      '    :Q01_PROB_NUMBER,'
      '    :Q01_TRAY,'
      '    :Q01_STATE,'
      '    :Q01_BARCODE,'
      '    :Q01_DATE,'
      '    :Q01_TIME'
      ')')
    RefreshSQL.Strings = (
      'select'
      'Q01.q01_id,'
      'Q01.Q01_D02_ID,'
      'Q01.Q01_SENDED,'
      'Q01.Q01_Barcoded,'
      'Q01.Q01_PATIENT_NAME,'
      'Q01.Q01_S,'
      'Q01.Q01_TEST,'
      'Q01.Q01_NUMBER,'
      'Q01.Q01_PROB_NUMBER,'
      'Q01.Q01_TRAY,'
      'Q01.Q01_STATE,'
      'q01.q01_BARCODE,'
      'Q01.Q01_DATE,'
      'Q01.Q01_TIME'
      'from q01_query q01'
      'where(  (q01.Q01_D02_id = :c01_id)'
      '     ) and (     Q01.Q01_ID = :OLD_Q01_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select'
      'Q01.q01_id,'
      'Q01.Q01_D02_ID,'
      'Q01.Q01_SENDED,'
      'Q01.Q01_Barcoded,'
      'Q01.Q01_PATIENT_NAME,'
      'Q01.Q01_S,'
      'Q01.Q01_TEST,'
      'Q01.Q01_NUMBER,'
      'Q01.Q01_PROB_NUMBER,'
      'Q01.Q01_TRAY,'
      'Q01.Q01_STATE,'
      'q01.q01_BARCODE,'
      'Q01.Q01_DATE,'
      'Q01.Q01_TIME'
      'from q01_query q01'
      'where (q01.Q01_D02_id = :c01_id)')
    Transaction = pFIBTrRead
    Database = FIBDBDeviceC
    UpdateTransaction = pFIBTrModify
    DataSource = JvDataSourceConfigurations
    Left = 336
    Top = 144
  end
  object JvDataSourceQuerys: TJvDataSource
    DataSet = pFIBDataSetQuerys
    Left = 336
    Top = 192
  end
  object pFIBDataSet_BaudRate: TpFIBDataSet
    SelectSQL.Strings = (
      'select d01_name, d01_id from d01_DICTIONARY'
      ' where d01_part = 1 -- baudrate'
      '')
    Transaction = pFIBTrRead
    Database = FIBDBDeviceC
    UpdateTransaction = pFIBTrModify
    AutoCommit = True
    Left = 64
    Top = 280
    object pFIBDataSet_BaudRateD01_NAME: TFIBStringField
      FieldName = 'D01_NAME'
      Size = 100
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSet_BaudRateD01_ID: TFIBIntegerField
      FieldName = 'D01_ID'
    end
  end
  object pFIBDataSet_DataBits: TpFIBDataSet
    SelectSQL.Strings = (
      'select d01_name, d01_id from d01_DICTIONARY'
      ' where d01_part = 2 -- DataBits'
      '')
    Transaction = pFIBTrRead
    Database = FIBDBDeviceC
    UpdateTransaction = pFIBTrModify
    AutoCommit = True
    Left = 200
    Top = 280
    object pFIBDataSet_DataBitsD01_NAME: TFIBStringField
      FieldName = 'D01_NAME'
      Size = 100
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSet_DataBitsD01_ID: TFIBIntegerField
      FieldName = 'D01_ID'
    end
  end
  object pFIBDataSet_Parity: TpFIBDataSet
    SelectSQL.Strings = (
      'select d01_name, d01_id from d01_DICTIONARY'
      ' where d01_part = 4 -- Parity'
      '')
    Transaction = pFIBTrRead
    Database = FIBDBDeviceC
    UpdateTransaction = pFIBTrModify
    AutoCommit = True
    Left = 336
    Top = 280
    object pFIBDataSet_ParityD01_NAME: TFIBStringField
      FieldName = 'D01_NAME'
      Size = 100
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSet_ParityD01_ID: TFIBIntegerField
      FieldName = 'D01_ID'
    end
  end
  object pFIBDataSet_StopBits: TpFIBDataSet
    SelectSQL.Strings = (
      'select d01_name, d01_id from d01_DICTIONARY'
      ' where d01_part = 5 --StopBits'
      ' ')
    Transaction = pFIBTrRead
    Database = FIBDBDeviceC
    UpdateTransaction = pFIBTrModify
    AutoCommit = True
    Left = 464
    Top = 280
    object pFIBDataSet_StopBitsD01_NAME: TFIBStringField
      FieldName = 'D01_NAME'
      Size = 100
      Transliterate = False
      EmptyStrToNull = True
    end
    object pFIBDataSet_StopBitsD01_ID: TFIBIntegerField
      FieldName = 'D01_ID'
    end
  end
  object JvDataSource_BaudRate: TJvDataSource
    DataSet = pFIBDataSet_BaudRate
    Left = 64
    Top = 336
  end
  object JvDataSource_DataBits: TJvDataSource
    DataSet = pFIBDataSet_DataBits
    Left = 200
    Top = 336
  end
  object JvDataSource_Parity: TJvDataSource
    DataSet = pFIBDataSet_Parity
    Left = 336
    Top = 336
  end
  object JvDataSource_StopBits: TJvDataSource
    DataSet = pFIBDataSet_StopBits
    Left = 464
    Top = 336
  end
  object MainMenuDC: TMainMenu
    Left = 509
    Top = 12
    object Afqk1: TMenuItem
      Caption = #1060#1072#1081#1083
      object MainMenuLoginAsAdmin: TMenuItem
        Caption = #1042#1086#1081#1090#1080' '#1082#1072#1082' '#1040#1076#1084#1080#1085#1080#1089#1090#1088#1072#1090#1086#1088
      end
      object MainMenuLogoutFromAdmin: TMenuItem
        Caption = #1042#1099#1081#1090#1080' '#1080#1079' '#1040#1076#1084#1080#1085#1080#1089#1090#1088#1072#1090#1086#1088#1072
      end
      object N: TMenuItem
        Caption = '-'
      end
      object MainMenuExitFromDc: TMenuItem
        Caption = #1042#1099#1093#1086#1076
      end
    end
  end
  object JvPopupMenuResults: TJvPopupMenu
    ImageMargin.Left = 0
    ImageMargin.Top = 0
    ImageMargin.Right = 0
    ImageMargin.Bottom = 0
    ImageSize.Height = 0
    ImageSize.Width = 0
    Left = 509
    Top = 65
  end
  object JvPopupMenuQuerys: TJvPopupMenu
    ImageMargin.Left = 0
    ImageMargin.Top = 0
    ImageMargin.Right = 0
    ImageMargin.Bottom = 0
    ImageSize.Height = 0
    ImageSize.Width = 0
    Left = 509
    Top = 113
  end
  object pFIBQuery_IsComBusy: TpFIBQuery
    Transaction = pFIBTrRead
    Database = FIBDBDeviceC
    SQL.Strings = (
      'Select C01.C01_ID'
      'From C01_Config C01'
      'where'
      '(C01.C01_Working = 1)'
      'AND (C01.C01_COM_PORT = :ComPortNumber)')
    Left = 608
    Top = 200
  end
end
